home *** CD-ROM | disk | FTP | other *** search
/ B Soft 2 / B-Soft_2_19xx_Maik__Mike_de_Side_A.d64 / joint'n fun (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  60 lines
  1. 0 poke808,254:poke53280,0:poke53281,0
  2. 1 printchr$(8),chr$(142)"[147]we have joint we have fun!"
  3. 2 print"ein kurz-adventure von maik holstein"
  4. 3 print"written 1990"
  5. 4 print""
  6. 5 print"viel spass, junky![145]"
  7. 6 geta$:ifa$=""then6
  8. 7 print"[147]fuer die ganz dummen:"
  9. 8 print"pass auf, das ist ganz easy."
  10. 9 print"in diesem game stelle ich dir immer fra-"
  11. 10 print"[145]gen, und du musst sie mit den buch-"
  12. 11 print"staben 'j' (ja) oder 'n' (nein) beant-"
  13. 12 print"worten und dann 'return' druecken."
  14. 13 input"[145]klaro";mh$
  15. 14 ifmh$="j"then19
  16. 15 ifmh$="n"then500
  17. 16 goto13
  18. 19 print"[147]"
  19. 20 print"der dealer ist da!"
  20. 30 input"[145]willste 'nen joint";e$
  21. 40 ife$="j"then60
  22. 50 ife$="n"thenprint:print"schade...":print"(taste)":goto200
  23. 55 goto30
  24. 60 print""
  25. 65 input"[145]haste kohle";g$
  26. 80 ifg$="n"thenprint"du gehst erst kohle holen.":goto90
  27. 81 ifg$="j"then90
  28. 82 goto65
  29. 90 print:print"du walkst ueber die strasse."
  30. 100 print:print"du kaufst 'nen joint."
  31. 110 x=x+1
  32. 120 print""
  33. 125 input"[145]willste noch einen";n$
  34. 130 ifn$="j"then150
  35. 140 ifn$="n"then170
  36. 145 goto125
  37. 150 print:print"du kaufst joint nummer";x+1;"[157]."
  38. 160 goto110
  39. 170 print:print"du musst kotzen.":print
  40. 180 ifx=1thenprint"ein joint bekommt dir nicht!":print"(taste)":goto200
  41. 190 print"[157]";x;"joints bekommen dir nicht!":print"(taste)"
  42. 200 geta$:ifa$=""then200
  43. 201 print"[147]hm, nun, tja, das war's eigentlich..."
  44. 202 print"und die moral von der geschicht?"
  45. 203 print"einen joint raucht man nicht!"
  46. 204 print"(taste)"
  47. 205 geta$:ifa$=""then205
  48. 206 goto600
  49. 500 print"mensch, stell' dich nicht bloeder an,"
  50. 501 print"als du schon bist! es geht los."
  51. 502 print"(taste)"
  52. 503 geta$:ifa$=""then503
  53. 504 goto19
  54. 600 print"[152][213][195][179] [213][201]  [178] [176][201] [213][195][179]"
  55. 601 print"[194]   [194][202][201] [194] [194][202][201][194]  "
  56. 602 print"[171][195][179] [194] [202][201][194] [194][215][194][171][195][179]"
  57. 603 print"[194]   [194]  [202][179] [194][213][203][194]"
  58. 604 print"[202][195][179] [177]   [177] [173][203] [202][195][179]":sys64738
  59. 1000 rem written by maik holstein 1990
  60.